home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The School House• / HeloMath •••• / HeloMath ееее.rsrc / CODE_4_About.txt < prev    next >
Text File  |  1988-10-20  |  17KB  |  308 lines
  1. # near model CODE resource
  2. # jump table entries: 112-113 (2 of them)
  3. export_14:
  4. 00000000  4E56 E878                link       A6, -0x1788
  5. 00000004  2F07                     move.l     -[A7], D7
  6. 00000006  3D7C 0026 E886           move.w     [A6 - 0x177A], 0x26 /* '&' */
  7. 0000000C  41EE E890                lea.l      A0, [A6 - 0x1770]
  8. 00000010  2D48 E882                move.l     [A6 - 0x177E], A0
  9. 00000014  486E E888                pea.l      [A6 - 0x1778]
  10. 00000018  2F3C 0064 02BC           move.l     -[A7], 0x6402BC
  11. 0000001E  2F3C 00C8 03E8           move.l     -[A7], 0xC803E8
  12. 00000024  A8A7                     syscall    SetRect
  13. 00000026  486E E87A                pea.l      [A6 - 0x1786]
  14. 0000002A  2F3C 0032 0000           move.l     -[A7], 0x320000 /* '2\0\0' */
  15. 00000030  2F3C 0096 012C           move.l     -[A7], 0x96012C
  16. 00000036  A8A7                     syscall    SetRect
  17. 00000038  486D C3D4                pea.l      [A5 - 0x3C2C]
  18. 0000003C  486E E882                pea.l      [A6 - 0x177E]
  19. 00000040  486E E87A                pea.l      [A6 - 0x1786]
  20. 00000044  486E E888                pea.l      [A6 - 0x1778]
  21. 00000048  4267                     clr.w      -[A7]
  22. 0000004A  42A7                     clr.l      -[A7]
  23. 0000004C  A8EC                     syscall    CopyBits
  24. 0000004E  42A7                     clr.l      -[A7]
  25. 00000050  3F3C 0104                move.w     -[A7], 0x104
  26. 00000054  42A7                     clr.l      -[A7]
  27. 00000056  70FF                     moveq.l    D0, 0xFFFFFFFF
  28. 00000058  2F00                     move.l     -[A7], D0
  29. 0000005A  A9BD                     syscall    GetNewWindow
  30. 0000005C  2B5F FF18                move.l     [A5 - 0xE8], [A7]+
  31. 00000060  2F2D FF18                move.l     -[A7], [A5 - 0xE8]
  32. 00000064  A873                     syscall    SetPort
  33. 00000066  4267                     clr.w      -[A7]
  34. 00000068  A887                     syscall    TextFont
  35. 0000006A  3F3C 000C                move.w     -[A7], 0xC
  36. 0000006E  A88A                     syscall    TextSize
  37. 00000070  7E01                     moveq.l    D7, 0x01
  38. 00000072  6000 00A6                bra        +0xA8 /* 0000011A */
  39. label00000076:
  40. 00000076  3F07                     move.w     -[A7], D7
  41. 00000078  A88A                     syscall    TextSize
  42. 0000007A  2F3C 0028 0014           move.l     -[A7], 0x280014
  43. 00000080  A893                     syscall    MoveTo
  44. 00000082  2F3C 000F 0046           move.l     -[A7], 0xF0046
  45. 00000088  A893                     syscall    MoveTo
  46. 0000008A  487A 012C                pea.l      [PC + 0x12C /* 000001B8, value 0x1448656C, pstring "HeloMath by Mark Day" */]
  47. 0000008E  A884                     syscall    DrawString
  48. 00000090  2F3C 001E 0046           move.l     -[A7], 0x1E0046
  49. 00000096  A893                     syscall    MoveTo
  50. 00000098  487A 010C                pea.l      [PC + 0x10C /* 000001A6, value 0x10343236, pstring "4265 Midland Rd." */]
  51. 0000009C  A884                     syscall    DrawString
  52. 0000009E  2F3C 002D 0046           move.l     -[A7], 0x2D0046 /* '-\0F' */
  53. 000000A4  A893                     syscall    MoveTo
  54. 000000A6  487A 00EC                pea.l      [PC + 0xEC /* 00000194, value 0x11536167, pstring "Saginaw, MI 48603" */]
  55. 000000AA  A884                     syscall    DrawString
  56. 000000AC  2F3C 003C 0046           move.l     -[A7], 0x3C0046 /* '<\0F' */
  57. 000000B2  A893                     syscall    MoveTo
  58. 000000B4  487A 00C8                pea.l      [PC + 0xC8 /* 0000017E, value 0x14536861, pstring "Shareware Send $5.00" */]
  59. 000000B8  A884                     syscall    DrawString
  60. 000000BA  2F3C 004B 0046           move.l     -[A7], 0x4B0046 /* 'K\0F' */
  61. 000000C0  A893                     syscall    MoveTo
  62. 000000C2  487A 009E                pea.l      [PC + 0x9E /* 00000162, value 0x1A4D5057, pstring "MPW Pascal Source Code $15" */]
  63. 000000C6  A884                     syscall    DrawString
  64. 000000C8  3F3C 0001                move.w     -[A7], 0x1
  65. 000000CC  A889                     syscall    TextMode
  66. 000000CE  2F3C 000F 0046           move.l     -[A7], 0xF0046
  67. 000000D4  A893                     syscall    MoveTo
  68. 000000D6  487A 00E0                pea.l      [PC + 0xE0 /* 000001B8, value 0x1448656C, pstring "HeloMath by Mark Day" */]
  69. 000000DA  A884                     syscall    DrawString
  70. 000000DC  2F3C 001E 0046           move.l     -[A7], 0x1E0046
  71. 000000E2  A893                     syscall    MoveTo
  72. 000000E4  487A 00C0                pea.l      [PC + 0xC0 /* 000001A6, value 0x10343236, pstring "4265 Midland Rd." */]
  73. 000000E8  A884                     syscall    DrawString
  74. 000000EA  2F3C 002D 0046           move.l     -[A7], 0x2D0046 /* '-\0F' */
  75. 000000F0  A893                     syscall    MoveTo
  76. 000000F2  487A 00A0                pea.l      [PC + 0xA0 /* 00000194, value 0x11536167, pstring "Saginaw, MI 48603" */]
  77. 000000F6  A884                     syscall    DrawString
  78. 000000F8  2F3C 003C 0046           move.l     -[A7], 0x3C0046 /* '<\0F' */
  79. 000000FE  A893                     syscall    MoveTo
  80. 00000100  487A 007C                pea.l      [PC + 0x7C /* 0000017E, value 0x14536861, pstring "Shareware Send $5.00" */]
  81. 00000104  A884                     syscall    DrawString
  82. 00000106  2F3C 004B 0046           move.l     -[A7], 0x4B0046 /* 'K\0F' */
  83. 0000010C  A893                     syscall    MoveTo
  84. 0000010E  487A 0052                pea.l      [PC + 0x52 /* 00000162, value 0x1A4D5057, pstring "MPW Pascal Source Code $15" */]
  85. 00000112  A884                     syscall    DrawString
  86. 00000114  4267                     clr.w      -[A7]
  87. 00000116  A889                     syscall    TextMode
  88. 00000118  5247                     addq.w     D7, 1
  89. label0000011A:
  90. 0000011A  700C                     moveq.l    D0, 0x0C
  91. 0000011C  B047                     cmp.w      D0, D7
  92. 0000011E  6C00 FF56                bge        -0xA8 /* 00000076 */
  93. label00000122:
  94. 00000122  4267                     clr.w      -[A7]
  95. 00000124  A974                     syscall    Button
  96. 00000126  101F                     move.b     D0, [A7]+
  97. 00000128  67F8                     beq        -0x6 /* 00000122 */
  98. 0000012A  2F2D FF18                move.l     -[A7], [A5 - 0xE8]
  99. 0000012E  A914                     syscall    DisposeWindow
  100. 00000130  2F2D FF10                move.l     -[A7], [A5 - 0xF0]
  101. 00000134  A873                     syscall    SetPort
  102. 00000136  3F3C 0003                move.w     -[A7], 0x3
  103. 0000013A  A887                     syscall    TextFont
  104. 0000013C  486E E882                pea.l      [A6 - 0x177E]
  105. 00000140  486D C3D4                pea.l      [A5 - 0x3C2C]
  106. 00000144  486E E888                pea.l      [A6 - 0x1778]
  107. 00000148  486E E87A                pea.l      [A6 - 0x1786]
  108. 0000014C  4267                     clr.w      -[A7]
  109. 0000014E  42A7                     clr.l      -[A7]
  110. 00000150  A8EC                     syscall    CopyBits
  111. 00000152  2E1F                     move.l     D7, [A7]+
  112. 00000154  4E5E                     unlink     A6
  113. 00000156  4E75                     rts
  114. 00000158  C142                     exg        D0, D2
  115. 0000015A  4F55                     chk.w      D7, [A5]
  116. 0000015C  544D                     addq.w     A5, 2
  117. 0000015E  4143                     chk.w      D0, D3
  118. 00000160  006C 1A4D 5057           ori.w      [A4 + 0x5057], 0x1A4D
  119. 00000166  2050                     movea.l    A0, [A0]
  120. 00000168  6173                     bsr        +0x75 /* 000001DD */
  121. 0000016A  6361                     bls        +0x63 /* 000001CD */
  122. 0000016C  6C20                     bge        +0x22 /* 0000018E */
  123. 0000016E  536F 7572                subq.w     [A7 + 0x7572], 1
  124. 00000172  6365                     bls        +0x67 /* 000001D9 */
  125. 00000174  2043                     movea.l    A0, D3
  126. 00000176  6F64                     ble        +0x66 /* 000001DC */
  127. 00000178  6520                     bcs        +0x22 /* 0000019A */
  128. 0000017A  2431 3500                move.l     D2, [A1 + <<invalid base displacement size>> + D3 * 4]
  129. 0000017E  1453                     movea.b    A2, [A3]
  130. 00000180  6861                     bvc        +0x63 /* 000001E3 */
  131. 00000182  7265                     moveq.l    D1, 0x65
  132. 00000184  7761                     moveq.l    D3, 0x61
  133. 00000186  7265                     moveq.l    D1, 0x65
  134. 00000188  2053                     movea.l    A0, [A3]
  135. 0000018A  656E                     bcs        +0x70 /* 000001FA */
  136. 0000018C  6420                     bcc        +0x22 /* 000001AE */
  137. label0000018E:
  138. 0000018E  2435 2E30                move.l     D2, [A5 + D2 * 8 + 0x30]
  139. 00000192  3000                     move.w     D0, D0
  140. 00000194  1153 6167                move.b     [A0 + 0x6167], [A3]
  141. 00000198  696E                     bvs        +0x70 /* 00000208 */
  142. label0000019A:
  143. 0000019A  6177                     bsr        +0x79 /* 00000213 */
  144. 0000019C  2C20                     move.l     D6, -[A0]
  145. 0000019E  4D49                     chk.w      D6, A1
  146. 000001A0  2034 3836                move.l     D0, [A4 + D3 + 0x36]
  147. 000001A4  3033 1034                move.w     D0, [A3 + D1.w + 0x34]
  148. 000001A8  3236 3520 4D69           move.w     D1, [A6 + 0x4D69 + D3 * 4]
  149. label000001AE:
  150. 000001AE  646C                     bcc        +0x6E /* 0000021C */
  151. 000001B0  616E                     bsr        +0x70 /* 00000220 */
  152. 000001B2  6420                     bcc        +0x22 /* 000001D4 */
  153. 000001B4  5264                     addq.w     -[A4], 1
  154. 000001B6  2E00                     move.l     D7, D0
  155. 000001B8  1448                     movea.b    A2, A0
  156. 000001BA  656C                     bcs        +0x6E /* 00000228 */
  157. 000001BC  6F4D                     ble        +0x4F /* 0000020B */
  158. 000001BE  6174                     bsr        +0x76 /* 00000234 */
  159. 000001C0  6820                     bvc        +0x22 /* 000001E2 */
  160. 000001C2  6279                     bhi        +0x7B /* 0000023D */
  161. 000001C4  204D                     movea.l    A0, A5
  162. 000001C6  6172                     bsr        +0x74 /* 0000023A */
  163. 000001C8  6B20                     bmi        +0x22 /* 000001EA */
  164. 000001CA  4461                     neg.w      -[A1]
  165. 000001CC  7900                     moveq.l    D4, 0x00
  166. fn000001CE:
  167. 000001CE  4E56 FFFA                link       A6, -0x0006
  168. 000001D2  48E7 0320                movem.l    -[A7], D6,D7,A2
  169. // begin alternate branch 000001D4-000001D6
  170. label000001D4:
  171. 000001D4  0320                     btst       -[A0], D1
  172. // end alternate branch 000001D4-000001D6
  173. label000001D4: // (misaligned)
  174. 000001D6  206E 0008                movea.l    A0, [A6 + 0x8]
  175. 000001DA  3010                     move.w     D0, [A0]
  176. label000001DC:
  177. 000001DC  5340                     subq.w     D0, 1
  178. 000001DE  3D40 FFFA                move.w     [A6 - 0x6], D0
  179. label000001E2:
  180. 000001E2  7E01                     moveq.l    D7, 0x01
  181. 000001E4  607A                     bra        +0x7C /* 00000260 */
  182. label000001E6:
  183. 000001E6  206E 0008                movea.l    A0, [A6 + 0x8]
  184. label000001EA:
  185. 000001EA  3010                     move.w     D0, [A0]
  186. 000001EC  D040                     add.w      D0, D0
  187. 000001EE  206E 0008                movea.l    A0, [A6 + 0x8]
  188. 000001F2  3210                     move.w     D1, [A0]
  189. 000001F4  9247                     sub.w      D1, D7
  190. 000001F6  D241                     add.w      D1, D1
  191. 000001F8  41ED DE1C                lea.l      A0, [A5 - 0x21E4]
  192. // begin alternate branch 000001FA-000001FC
  193. label000001FA:
  194. 000001FA  DE1C                     add.b      D7, [A4]+
  195. // end alternate branch 000001FA-000001FC
  196. label000001FA: // (misaligned)
  197. 000001FC  3430 0000                move.w     D2, [A0 + D0.w]
  198. 00000200  B470 1000                cmp.w      D2, [A0 + D1.w]
  199. 00000204  6656                     bne        +0x58 /* 0000025C */
  200. 00000206  42A7                     clr.l      -[A7]
  201. label00000208:
  202. 00000208  A975                     syscall    TickCount
  203. 0000020A  2B5F C3D0                move.l     [A5 - 0x3C30], [A7]+
  204. 0000020E  206E 0010                movea.l    A0, [A6 + 0x10]
  205. 00000212  2F08                     move.l     -[A7], A0
  206. 00000214  4267                     clr.w      -[A7]
  207. 00000216  A861                     syscall    Random
  208. 00000218  301F                     move.w     D0, [A7]+
  209. 0000021A  205F                     movea.l    A0, [A7]+
  210. label0000021C:
  211. 0000021C  4A40                     tst.w      D0
  212. 0000021E  6A02                     bpl        +0x4 /* 00000222 */
  213. fn00000220:
  214. 00000220  4440                     neg.w      D0
  215. label00000222:
  216. 00000222  226E 000C                movea.l    A1, [A6 + 0xC]
  217. 00000226  246E 0010                movea.l    A2, [A6 + 0x10]
  218. // begin alternate branch 00000228-0000022C
  219. label00000228:
  220. 00000228  0010 3211                ori.b      [A0], 0x11
  221. // end alternate branch 00000228-0000022C
  222. label00000228: // (misaligned)
  223. 0000022A  3211                     move.w     D1, [A1]
  224. 0000022C  9252                     sub.w      D1, [A2]
  225. 0000022E  5241                     addq.w     D1, 1
  226. 00000230  48C0                     ext.l      D0
  227. 00000232  81C1                     divs.w     D0, D1
  228. fn00000234:
  229. 00000234  4840                     swap.w     D0
  230. 00000236  4A40                     tst.w      D0
  231. 00000238  3C00                     move.w     D6, D0
  232. fn0000023A:
  233. 0000023A  DC50                     add.w      D6, [A0]
  234. 0000023C  206E 0008                movea.l    A0, [A6 + 0x8]
  235. 00000240  3010                     move.w     D0, [A0]
  236. 00000242  D040                     add.w      D0, D0
  237. 00000244  41ED DE1C                lea.l      A0, [A5 - 0x21E4]
  238. 00000248  3186 0000                move.w     [A0 + D0.w], D6
  239. 0000024C  2F2E 0010                move.l     -[A7], [A6 + 0x10]
  240. 00000250  2F2E 000C                move.l     -[A7], [A6 + 0xC]
  241. 00000254  2F2E 0008                move.l     -[A7], [A6 + 0x8]
  242. 00000258  4EBA FF74                jsr        [PC - 0x8C /* 000001CE */]
  243. label0000025C:
  244. 0000025C  5247                     addq.w     D7, 1
  245. 0000025E  6906                     bvs        +0x8 /* 00000266 */
  246. label00000260:
  247. 00000260  BE6E FFFA                cmp.w      D7, [A6 - 0x6]
  248. 00000264  6F80                     ble        -0x7E /* 000001E6 */
  249. label00000266:
  250. 00000266  4CDF 04C0                movem.l    D6,D7,A2, [A7]+
  251. 0000026A  4E5E                     unlink     A6
  252. 0000026C  205F                     movea.l    A0, [A7]+
  253. 0000026E  DEFC 000C                add.w      A7, 0xC
  254. 00000272  4ED0                     jmp        [A0]
  255. 00000274  C348                     exg        A1, A0
  256. 00000276  4543                     chk.w      D2, D3
  257. 00000278  4B4E                     chk.w      D5, A6
  258. 0000027A  554D                     subq.w     A5, 2
  259. 0000027C  0000 4E56                ori.b      D0, 0x56 /* 'V' */
  260. export_15: // at 0000027E (misaligned)
  261. 00000280  FFFA                     .invalid   <<F/7/7>>
  262. 00000282  3D6E 0008 FFFA           move.w     [A6 - 0x6], [A6 + 0x8]
  263. 00000288  3D7C 0001 FFFE           move.w     [A6 - 0x2], 0x1
  264. 0000028E  6052                     bra        +0x54 /* 000002E2 */
  265. label00000290:
  266. 00000290  42A7                     clr.l      -[A7]
  267. 00000292  A975                     syscall    TickCount
  268. 00000294  2B5F C3D0                move.l     [A5 - 0x3C30], [A7]+
  269. 00000298  4267                     clr.w      -[A7]
  270. 0000029A  A861                     syscall    Random
  271. 0000029C  301F                     move.w     D0, [A7]+
  272. 0000029E  6A02                     bpl        +0x4 /* 000002A2 */
  273. 000002A0  4440                     neg.w      D0
  274. label000002A2:
  275. 000002A2  322E 000A                move.w     D1, [A6 + 0xA]
  276. 000002A6  926E 000C                sub.w      D1, [A6 + 0xC]
  277. 000002AA  5241                     addq.w     D1, 1
  278. 000002AC  48C0                     ext.l      D0
  279. 000002AE  81C1                     divs.w     D0, D1
  280. 000002B0  4840                     swap.w     D0
  281. 000002B2  4A40                     tst.w      D0
  282. 000002B4  D06E 000C                add.w      D0, [A6 + 0xC]
  283. 000002B8  3D40 FFFC                move.w     [A6 - 0x4], D0
  284. 000002BC  302E FFFE                move.w     D0, [A6 - 0x2]
  285. 000002C0  D040                     add.w      D0, D0
  286. 000002C2  41ED DE1C                lea.l      A0, [A5 - 0x21E4]
  287. 000002C6  31AE FFFC 0000           move.w     [A0 + D0.w], [A6 - 0x4]
  288. 000002CC  486E 000C                pea.l      [A6 + 0xC]
  289. 000002D0  486E 000A                pea.l      [A6 + 0xA]
  290. 000002D4  486E FFFE                pea.l      [A6 - 0x2]
  291. 000002D8  4EBA FEF4                jsr        [PC - 0x10C /* 000001CE */]
  292. 000002DC  526E FFFE                addq.w     [A6 - 0x2], 1
  293. 000002E0  690A                     bvs        +0xC /* 000002EC */
  294. label000002E2:
  295. 000002E2  302E FFFE                move.w     D0, [A6 - 0x2]
  296. 000002E6  B06E FFFA                cmp.w      D0, [A6 - 0x6]
  297. 000002EA  6FA4                     ble        -0x5A /* 00000290 */
  298. label000002EC:
  299. 000002EC  4E5E                     unlink     A6
  300. 000002EE  205F                     movea.l    A0, [A7]+
  301. 000002F0  5C4F                     addq.w     A7, 6
  302. 000002F2  4ED0                     jmp        [A0]
  303. 000002F4  C745                     exg        D3, D5
  304. 000002F6  5452                     addq.w     [A2], 2
  305. 000002F8  414E                     chk.w      D0, A6
  306. 000002FA  4420                     neg.b      -[A0]
  307. 000002FC  0000                     .incomplete
  308.